<%
Set rs = Server.CreateObject("ADODB.Recordset")
strSQL = "select * from (select top 10 * from WebNews) order by Hot desc"
rs.Open strSQL, dbconnection, adOpenDynamic, 3
Dim TextArray6(10)

for i = 0 to ubound(TextArray6) 
	if not rs.eof then
		TextArray6(i)="<A href="""&rs("Url")&""" class=""Table6A"">"&rs("Text")&"</A>"
		rs.movenext
	else
		TextArray6(i)="&nbsp;"
	end if
next
set rs = nothing
strSQL = "select top 1 * from ProName where id=3"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, dbconnection, adOpenDynamic, 3
%>
<div class="TableMenuLeftDiv"></div>
<div class="TableMenuDiv1"><div class="TableMenuTextDiv88"><%=rs("Names")%></div></div>
<div class="TableMenuRightDiv"></div>
<div class="TableDiv88">
<div><%=TextArray6(0)%></div>
<div><%=TextArray6(1)%></div>
<div><%=TextArray6(2)%></div>
<div><%=TextArray6(3)%></div>
<div><%=TextArray6(4)%></div>
<div><%=TextArray6(5)%></div>
<div><%=TextArray6(6)%></div>
<div><%=TextArray6(7)%></div>
<div><%=TextArray6(8)%></div>
<div><%=TextArray6(9)%></div>
</div>
<%
	rs.close                                                                    
    set rs=nothing
 %>
